// PUPDUMMYGATE.BPL -- DUMMY VERSION OF PUPGATEWAY.BCPL FOR
// Copyright Xerox Corporation 1979
//			USE IN HOSTS THAT AREN'T GATEWAYS

GET "LEVEL1.HDR"
GET "PUPLIB.HDR"

//----------------------------------------------------------------------------

LET INITFORWARDER(NIL) BE [ LET A = NIL ]
//----------------------------------------------------------------------------

//----------------------------------------------------------------------------
AND FORWARDER(PBI) BE RELEASEPBI(PBI)
//----------------------------------------------------------------------------

//----------------------------------------------------------------------------
AND FORWARDERCTX() BE DISMISS(1)
//----------------------------------------------------------------------------